Fortran 数组的查询函数

allocated(array)
lbound(array, *dim) ! 返回所有的或 dim 维上的最小下标
ubound(array, *dim) ! 返回所有的或 dim 维上的最大下标
shape(array) ! 返回它的结构
size(array, *dim) ! 返回所有的或 dim 维上的元素个数